#tag Class
Protected Class OccupyCounter
	#tag Method, Flags = &h0
		Sub Constructor(p as game.Player)
		  thePlayer = p
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub add()
		  cnt = cnt +1
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Function GetCnt() As integer
		  return cnt
		End Function
	#tag EndMethod


	#tag Property, Flags = &h0
		thePlayer As game.Player
	#tag EndProperty

	#tag Property, Flags = &h21
		Private cnt As Integer = 0
	#tag EndProperty


	#tag ViewBehavior
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			InheritedFrom="Object"
		#tag EndViewProperty
	#tag EndViewBehavior
End Class
#tag EndClass
